;;;; In order for the entry forms tab completion to work by default
;;;; They must be entered in the order that you want tab to go.
;;;; I will start with the labels.

;; Formula
(setf *label_formula* (make-instance 'label :master *frame_listtop*
                                      :text "Formula #"))
(grid *label_formula* 1 1)

(setf *label_quantity* (make-instance 'label :master *frame_listtop*
                                      :text "Quantity"))
(grid *label_quantity* 2 1)

(setf *label_customer* (make-instance 'label :master *frame_listtop*
                                      :text "Customer"))
(grid *label_customer* 3 1)

(setf *label_dateissue* (make-instance 'label :master *frame_listtop*
                                      :text "Date Built"))
(grid *label_dateissue* 4 1)

(setf *label_lotnum* (make-instance 'label :master *frame_listtop*
                                      :text "Lot:"))
(grid *label_lotnum* 4 3)


;; formula, quantity, customer, date, lot, comments
(defvar *top_e_formula* 0)
(setf *top_e_formula* (make-instance 'entry
  			      :master *frame_listtop*
			      :width 16))
(grid *top_e_formula* 1 2)

(defvar *top_e_quantity* 0)
(setf *top_e_quantity* (make-instance 'entry
  			      :master *frame_listtop*
			      :width 16))
(grid *top_e_quantity* 2 2)

(defvar *top_e_customer* 0)
(setf *top_e_customer* (make-instance 'entry
  			      :master *frame_listtop*
			      :width 16))
(grid *top_e_customer* 3 2)

(defvar *top_e_date* 0)
(setf *top_e_date* (make-instance 'entry
  			      :master *frame_listtop*
			      :width 16))
(grid *top_e_date* 4 2)

(defvar *top_e_lot* 0)
(setf *top_e_lot* (make-instance 'entry
  			      :master *frame_listtop*
			      :width 17))
(grid *top_e_lot* 4 4)

(defvar *top_e_notes* 0)
(setf *top_e_notes* (make-instance 'text
  			      :master *frame_listtop*
			      :width 88
			      :height 4
			      :pady 2))
(grid *top_e_notes* 6 1 :columnspan 5)
